<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>Template Units For Numerical Applications</title>
<link href="TUNAstyles.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
<style type="text/css">

.cabeza_cell {
  border-left: 1px solid #000000;
  border-right: 1px solid #000000;
  border-bottom: 1px solid #000000;
  border-top: 1px solid #000000;
  font-family: Arial,Helvetica,sans-serif;
  font-size: 11pt;
  background-color: #ffffff;
  font-weight: lighter;
  color: #000000;
  text-decoration: none;
}
</style>

</head><body>
<div>
<table align="center" width="640" border="0" cellspacing="2" cellpadding="5" class="border">
<tr>
 <td class="cabeza_cell"> 

  <font style="font-family: helvetica; color: #000000;" size=4>
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>TUNA</font> :
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>T</font>emplate
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>U</font>nits for
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>N</font>umerical 
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>A</font>pplications
 </font><br>
  
</td>
</tr>

<tr>
<td class="cabeza_cell">
 <span style="font-family: helvetica; color: #336699;">
 Documentation Ver 1.0.0 August 2011 by
 <a href="http://mmc.geofisica.unam.mx/luiggi">Luis M. de la Cruz</a> <br>
 <a href="http://mmc.geofisica.unam.mx"> GMMC </a> -
 <a href="http://www.geofisica.unam.mx/recnat/"> Depto. de Recursos Naturales </a> -
 <a href="http://www.geofisica.unam.mx"> Instituto de Geof&iacute;sica </a> -
 <a href="http://www.unam.mx"> UNAM </a><br>
 </span>
 </td>

</tr>

</table>
</div>
<br>
<!-- Generated by Doxygen 1.7.4 -->
<script type="text/javascript"><!--
var searchBox = new SearchBox("searchBox", "search",false,'Search');
--></script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Classes</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li id="searchli">
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
<div class="header">
  <div class="headertitle">
<div class="title">Examples/09FlowInPorousMedia/FS/FSIP6.hpp</div>  </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="preprocessor">#ifndef _FSIP6_H_</span>
<a name="l00002"></a>00002 <span class="preprocessor"></span><span class="preprocessor">#define _FSIP6_H_</span>
<a name="l00003"></a>00003 <span class="preprocessor"></span>
<a name="l00004"></a>00004 <span class="preprocessor">#include &quot;Equations/TwoPhaseEquation.hpp&quot;</span>
<a name="l00005"></a>00005 
<a name="l00006"></a>00006 <span class="keyword">namespace </span>Tuna {
<a name="l00007"></a>00007 
<a name="l00008"></a>00008   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T, <span class="keywordtype">int</span> Dim&gt; <span class="keyword">class </span>FSIP6;
<a name="l00009"></a>00009 
<a name="l00010"></a>00010   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00011"></a>00011   <span class="keyword">struct </span>Typeinfo &lt;FSIP6&lt;T, 1&gt; &gt; {
<a name="l00012"></a>00012     <span class="keyword">typedef</span> T prec_t;
<a name="l00013"></a>00013     <span class="keyword">enum</span> { Dim = 1 };
<a name="l00014"></a>00014   };
<a name="l00015"></a>00015 
<a name="l00016"></a>00016   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00017"></a>00017   <span class="keyword">struct </span>Typeinfo &lt;FSIP6&lt;T, 2&gt; &gt; {
<a name="l00018"></a>00018     <span class="keyword">typedef</span> T prec_t;
<a name="l00019"></a>00019     <span class="keyword">enum</span> { Dim = 2 };
<a name="l00020"></a>00020   };
<a name="l00021"></a>00021 
<a name="l00022"></a>00022   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00023"></a>00023   <span class="keyword">struct </span>Typeinfo &lt;FSIP6&lt;T, 3&gt; &gt; {
<a name="l00024"></a>00024     <span class="keyword">typedef</span> T prec_t;
<a name="l00025"></a>00025     <span class="keyword">enum</span> { Dim = 3 };
<a name="l00026"></a>00026   };
<a name="l00027"></a>00027 
<a name="l00028"></a>00028   
<a name="l00029"></a>00029   <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00030"></a>00030   <span class="keyword">class </span>FSIP6 : <span class="keyword">public</span> TwoPhaseEquation&lt;FSIP6&lt;Tprec, Dim&gt; &gt;
<a name="l00031"></a>00031   {
<a name="l00032"></a>00032 
<a name="l00033"></a>00033     <span class="keyword">typedef</span> TwoPhaseEquation&lt;FSIP6&lt;Tprec, Dim&gt; &gt; TP_FSIP6;
<a name="l00034"></a>00034     
<a name="l00035"></a>00035     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aE;
<a name="l00036"></a>00036     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aW;
<a name="l00037"></a>00037     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aN;
<a name="l00038"></a>00038     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aS;
<a name="l00039"></a>00039     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aF;
<a name="l00040"></a>00040     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aB;
<a name="l00041"></a>00041     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::aP;
<a name="l00042"></a>00042     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::sp;
<a name="l00043"></a>00043     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::dx;
<a name="l00044"></a>00044     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::dy;
<a name="l00045"></a>00045     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::dz;
<a name="l00046"></a>00046     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::bi;
<a name="l00047"></a>00047     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::ei;
<a name="l00048"></a>00048     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::bj;
<a name="l00049"></a>00049     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::ej;
<a name="l00050"></a>00050     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::bk;
<a name="l00051"></a>00051     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::ek;
<a name="l00052"></a>00052     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::applyBoundaryConditions1D;
<a name="l00053"></a>00053     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::applyBoundaryConditions2D;
<a name="l00054"></a>00054     <span class="keyword">using</span> GeneralEquation&lt; TP_FSIP6 &gt;::applyBoundaryConditions3D;
<a name="l00055"></a>00055 
<a name="l00056"></a>00056     <span class="keyword">using</span> TP_FSIP6::S;
<a name="l00057"></a>00057     <span class="keyword">using</span> TP_FSIP6::phi_0;
<a name="l00058"></a>00058     <span class="keyword">using</span> TP_FSIP6::Srw;
<a name="l00059"></a>00059     <span class="keyword">using</span> TP_FSIP6::Sro;
<a name="l00060"></a>00060     <span class="keyword">using</span> TP_FSIP6::mu_w;
<a name="l00061"></a>00061     <span class="keyword">using</span> TP_FSIP6::mu_o;
<a name="l00062"></a>00062     <span class="keyword">using</span> TP_FSIP6::k;
<a name="l00063"></a>00063     <span class="keyword">using</span> TP_FSIP6::rank;
<a name="l00064"></a>00064     <span class="keyword">using</span> TP_FSIP6::injection;
<a name="l00065"></a>00065 
<a name="l00066"></a>00066   <span class="keyword">public</span>:
<a name="l00067"></a>00067     <span class="keyword">typedef</span> Tprec prec_t;
<a name="l00068"></a>00068     <span class="keyword">typedef</span> <span class="keyword">typename</span> TunaArray&lt;prec_t, Dim &gt;::huge ScalarField;
<a name="l00069"></a>00069     
<a name="l00070"></a>00070     FSIP6() : TwoPhaseEquation&lt;FSIP6&lt;prec_t, Dim &gt; &gt;() { }    
<a name="l00071"></a>00071     ~FSIP6() { };
<a name="l00072"></a>00072     
<a name="l00073"></a>00073     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients1D(); 
<a name="l00074"></a>00074     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients2D();
<a name="l00075"></a>00075     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients3D();
<a name="l00076"></a>00076     <span class="keyword">inline</span> <span class="keywordtype">void</span> printInfo() { std::cout &lt;&lt; <span class="stringliteral">&quot; FSIP6 &quot;</span>; }
<a name="l00077"></a>00077   };
<a name="l00078"></a>00078   
<a name="l00079"></a>00079 <span class="comment">/*</span>
<a name="l00080"></a>00080 <span class="comment"> *  Lineal for realtive permeability , Upwind for Sw</span>
<a name="l00081"></a>00081 <span class="comment"> */</span>
<a name="l00082"></a>00082 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00083"></a>00083 <span class="keyword">inline</span> <span class="keywordtype">bool</span> FSIP6&lt;Tprec, Dim&gt;::calcCoefficients1D () 
<a name="l00084"></a>00084 {
<a name="l00085"></a>00085     <span class="keyword">static</span> prec_t Sw_e, Sw_w;
<a name="l00086"></a>00086 
<a name="l00087"></a>00087     <span class="comment">// Lineal </span>
<a name="l00088"></a>00088     <span class="keyword">static</span> prec_t mult_o = k / ( (1 - Srw - Sro) * mu_o * dx ) ;
<a name="l00089"></a>00089     <span class="keyword">static</span> prec_t mult_w = k / ( (1 - Srw - Sro) * mu_w * dx ) ;
<a name="l00090"></a>00090 
<a name="l00091"></a>00091     aE = 0.0; aW = 0.0; aP = 0.0; sp = 0.0;
<a name="l00092"></a>00092 
<a name="l00093"></a>00093     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i) {  
<a name="l00094"></a>00094 
<a name="l00095"></a>00095       <span class="comment">// UpwindE</span>
<a name="l00096"></a>00096       <span class="keywordflow">if</span> ( phi_0(i+1) &gt;= phi_0(i) )
<a name="l00097"></a>00097         <span class="keywordflow">if</span>      ( i == ei   ) Sw_e = S(i+1);
<a name="l00098"></a>00098         <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( i == ei-1 ) Sw_e = S(i+1) * 2.0 - S(i+2);
<a name="l00099"></a>00099         <span class="keywordflow">else</span>                  Sw_e = S(i+1) * 1.5 - S(i+2) * 0.5;
<a name="l00100"></a>00100       <span class="keywordflow">else</span>
<a name="l00101"></a>00101         <span class="keywordflow">if</span> ( i == bi )
<a name="l00102"></a>00102           Sw_e = S(i) * 2.0 - S(i-1);
<a name="l00103"></a>00103         <span class="keywordflow">else</span>
<a name="l00104"></a>00104           Sw_e = S(i) * 1.5 - S(i-1) * 0.5;
<a name="l00105"></a>00105       
<a name="l00106"></a>00106       <span class="keywordflow">if</span> ( phi_0(i-1) &gt;= phi_0(i) ) 
<a name="l00107"></a>00107         <span class="keywordflow">if</span>      ( i == bi   ) Sw_w = S(i-1);
<a name="l00108"></a>00108         <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( i == bi+1 ) Sw_w = S(i-1) * 2.0 - S(i-2);
<a name="l00109"></a>00109         <span class="keywordflow">else</span>                  Sw_w = S(i-1) * 1.5 - S(i-2) * 0.5;
<a name="l00110"></a>00110       <span class="keywordflow">else</span>
<a name="l00111"></a>00111         <span class="keywordflow">if</span> ( i == ei )
<a name="l00112"></a>00112           Sw_w = S(i) * 2.0 - S(i+1);
<a name="l00113"></a>00113         <span class="keywordflow">else</span>
<a name="l00114"></a>00114           Sw_w = S(i) * 1.5 - S(i+1) * 0.5;                           Sw_w = S(i);
<a name="l00115"></a>00115       
<a name="l00116"></a>00116       <span class="comment">// Lineal</span>
<a name="l00117"></a>00117       aE (i) = (1 - Sro - Sw_e) * mult_o + (Sw_e - Srw) * mult_w ;
<a name="l00118"></a>00118       aW (i) = (1 - Sro - Sw_w) * mult_o + (Sw_w - Srw) * mult_w ;
<a name="l00119"></a>00119       aP (i) = aE (i) + aW (i);      
<a name="l00120"></a>00120     }
<a name="l00121"></a>00121     applyBoundaryConditions1D();
<a name="l00122"></a>00122     <span class="keywordflow">return</span> 0;
<a name="l00123"></a>00123 }
<a name="l00124"></a>00124 
<a name="l00125"></a>00125 <span class="comment">/*</span>
<a name="l00126"></a>00126 <span class="comment"> *  Lineal for relative permeability , Upwind for Sw</span>
<a name="l00127"></a>00127 <span class="comment"> */</span>
<a name="l00128"></a>00128 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00129"></a>00129 <span class="keyword">inline</span> <span class="keywordtype">bool</span> FSIP6&lt;Tprec, Dim&gt;::calcCoefficients2D () 
<a name="l00130"></a>00130 {
<a name="l00131"></a>00131   <span class="keyword">static</span> prec_t Sw_e, Sw_w, Sw_n, Sw_s;
<a name="l00132"></a>00132 
<a name="l00133"></a>00133     <span class="comment">// Lineal </span>
<a name="l00134"></a>00134     <span class="keyword">static</span> prec_t mult_o = k / ( (1 - Srw - Sro) * mu_o ) ;
<a name="l00135"></a>00135     <span class="keyword">static</span> prec_t mult_w = k / ( (1 - Srw - Sro) * mu_w ) ;
<a name="l00136"></a>00136     <span class="keyword">static</span> prec_t dx_dy = dx / dy;
<a name="l00137"></a>00137     <span class="keyword">static</span> prec_t dy_dx = dy / dx;
<a name="l00138"></a>00138 
<a name="l00139"></a>00139     aE = 0.0; aW = 0.0; aN = 0.0; aS = 0.0; aP = 0.0; sp = 0.0;
<a name="l00140"></a>00140 
<a name="l00141"></a>00141 
<a name="l00142"></a>00142     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i)
<a name="l00143"></a>00143       <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = bj; j &lt;= ej; ++j) {  
<a name="l00144"></a>00144           <span class="comment">// UpwindE</span>
<a name="l00145"></a>00145       <span class="comment">// -- X</span>
<a name="l00146"></a>00146         <span class="keywordflow">if</span> ( phi_0(i+1, j) &gt;= phi_0(i, j) )
<a name="l00147"></a>00147           <span class="keywordflow">if</span>      ( i == ei   ) Sw_e = S(i+1, j);
<a name="l00148"></a>00148           <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( i == ei-1 ) Sw_e = S(i+1, j) * 2.0 - S(i+2, j);
<a name="l00149"></a>00149           <span class="keywordflow">else</span>                  Sw_e = S(i+1, j) * 1.5 - S(i+2, j) * 0.5;
<a name="l00150"></a>00150       <span class="keywordflow">else</span>
<a name="l00151"></a>00151         <span class="keywordflow">if</span> ( i == bi )
<a name="l00152"></a>00152           Sw_e = S(i, j) * 2.0 - S(i-1, j);
<a name="l00153"></a>00153         <span class="keywordflow">else</span>
<a name="l00154"></a>00154           Sw_e = S(i, j) * 1.5 - S(i-1, j) * 0.5;
<a name="l00155"></a>00155       
<a name="l00156"></a>00156         <span class="keywordflow">if</span> ( phi_0(i-1, j) &gt;= phi_0(i, j) ) 
<a name="l00157"></a>00157           <span class="keywordflow">if</span>      ( i == bi   ) Sw_w = S(i-1, j);
<a name="l00158"></a>00158           <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( i == bi+1 ) Sw_w = S(i-1, j) * 2.0 - S(i-2, j);
<a name="l00159"></a>00159           <span class="keywordflow">else</span>                  Sw_w = S(i-1, j) * 1.5 - S(i-2, j) * 0.5;
<a name="l00160"></a>00160       <span class="keywordflow">else</span>
<a name="l00161"></a>00161         <span class="keywordflow">if</span> ( i == ei )
<a name="l00162"></a>00162           Sw_w = S(i, j) * 2.0 - S(i+1, j);
<a name="l00163"></a>00163         <span class="keywordflow">else</span>
<a name="l00164"></a>00164           Sw_w = S(i, j) * 1.5 - S(i+1, j) * 0.5; 
<a name="l00165"></a>00165 
<a name="l00166"></a>00166     <span class="comment">// -- Y</span>
<a name="l00167"></a>00167         <span class="keywordflow">if</span> ( phi_0(i, j+1) &gt;= phi_0(i, j) )
<a name="l00168"></a>00168           <span class="keywordflow">if</span>      ( j == ej   ) Sw_n = S(i, j+1);
<a name="l00169"></a>00169           <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( j == ej-1 ) Sw_n = S(i, j+1) * 2.0 - S(i, j+2);
<a name="l00170"></a>00170           <span class="keywordflow">else</span>                  Sw_n = S(i, j+1) * 1.5 - S(i, j+2) * 0.5;
<a name="l00171"></a>00171       <span class="keywordflow">else</span>
<a name="l00172"></a>00172         <span class="keywordflow">if</span> ( j == bj )
<a name="l00173"></a>00173           Sw_n = S(i, j) * 2.0 - S(i, j-1);
<a name="l00174"></a>00174         <span class="keywordflow">else</span>
<a name="l00175"></a>00175           Sw_n = S(i, j) * 1.5 - S(i, j-1) * 0.5;
<a name="l00176"></a>00176       
<a name="l00177"></a>00177         <span class="keywordflow">if</span> ( phi_0(i, j-1) &gt;= phi_0(i, j) ) 
<a name="l00178"></a>00178           <span class="keywordflow">if</span>      ( j == bj   ) Sw_s = S(i, j-1);
<a name="l00179"></a>00179           <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( j == bj+1 ) Sw_s = S(i, j-1) * 2.0 - S(i, j-2);
<a name="l00180"></a>00180           <span class="keywordflow">else</span>                  Sw_s = S(i, j-1) * 1.5 - S(i, j-2) * 0.5;
<a name="l00181"></a>00181       <span class="keywordflow">else</span>
<a name="l00182"></a>00182         <span class="keywordflow">if</span> ( j == ej )
<a name="l00183"></a>00183           Sw_w = S(i, j) * 2.0 - S(i, j+1);
<a name="l00184"></a>00184         <span class="keywordflow">else</span>
<a name="l00185"></a>00185           Sw_w = S(i, j) * 1.5 - S(i, j+1) * 0.5;                              
<a name="l00186"></a>00186       
<a name="l00187"></a>00187       <span class="comment">// Lineal</span>
<a name="l00188"></a>00188         aE (i, j) = ( (1 - Sro - Sw_e) * mult_o +
<a name="l00189"></a>00189                       (Sw_e - Srw) * mult_w ) * dy_dx;
<a name="l00190"></a>00190         aW (i, j) = ( (1 - Sro - Sw_w) * mult_o + 
<a name="l00191"></a>00191                       (Sw_w - Srw) * mult_w ) * dy_dx;
<a name="l00192"></a>00192         aN (i, j) = ( (1 - Sro - Sw_n) * mult_o + 
<a name="l00193"></a>00193                       (Sw_n - Srw) * mult_w ) * dx_dy;
<a name="l00194"></a>00194         aS (i, j) = ( (1 - Sro - Sw_s) * mult_o + 
<a name="l00195"></a>00195                       (Sw_s - Srw) * mult_w ) * dx_dy;
<a name="l00196"></a>00196         aP (i, j) = aE (i, j) + aW (i, j) + aN (i, j) + aS (i, j);
<a name="l00197"></a>00197 
<a name="l00198"></a>00198       }
<a name="l00199"></a>00199 
<a name="l00200"></a>00200     applyBoundaryConditions2D();
<a name="l00201"></a>00201     
<a name="l00202"></a>00202     <span class="comment">// Source for injection : </span>
<a name="l00203"></a>00203     <span class="comment">// (\frac{\bar{q}_w}{\rho_w} + \frac{\bar{q}_w}{\rho_w}) * \Delta V</span>
<a name="l00204"></a>00204     sp (bi, bj) +=  injection  ;
<a name="l00205"></a>00205 
<a name="l00206"></a>00206 <span class="comment">/*</span>
<a name="l00207"></a>00207 <span class="comment">    sp (ei, ej) +=  injection  ;</span>
<a name="l00208"></a>00208 <span class="comment">    sp (bi, ej) +=  injection  ;</span>
<a name="l00209"></a>00209 <span class="comment">    sp (ei, bj) +=  injection  ;</span>
<a name="l00210"></a>00210 <span class="comment">*/</span>
<a name="l00211"></a>00211     <span class="comment">//Sink for extraction :</span>
<a name="l00212"></a>00212     sp (ei, ej) -= injection  ;
<a name="l00213"></a>00213 
<a name="l00214"></a>00214 <span class="comment">//    sp (ei/2+1, ej/2+1) -= 4 * injection  ;</span>
<a name="l00215"></a>00215 
<a name="l00216"></a>00216    
<a name="l00217"></a>00217 
<a name="l00218"></a>00218     <span class="keywordflow">return</span> 0;
<a name="l00219"></a>00219 }
<a name="l00220"></a>00220 
<a name="l00221"></a>00221 <span class="comment">/*</span>
<a name="l00222"></a>00222 <span class="comment"> *  Lineal for relative permeability , Upwind for Sw</span>
<a name="l00223"></a>00223 <span class="comment"> */</span>
<a name="l00224"></a>00224 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00225"></a>00225 <span class="keyword">inline</span> <span class="keywordtype">bool</span> FSIP6&lt;Tprec, Dim&gt;::calcCoefficients3D () 
<a name="l00226"></a>00226 {
<a name="l00227"></a>00227     <span class="keyword">static</span> prec_t Sw_e, Sw_w, Sw_n, Sw_s, Sw_f, Sw_b;
<a name="l00228"></a>00228 
<a name="l00229"></a>00229     <span class="comment">// Quadratic</span>
<a name="l00230"></a>00230     <span class="keyword">static</span> prec_t mult_o = k / 
<a name="l00231"></a>00231       ( (1 - Srw - Sro) * (1 - Srw - Sro) * mu_o );
<a name="l00232"></a>00232     <span class="keyword">static</span> prec_t mult_w = k / 
<a name="l00233"></a>00233       ( (1 - Srw - Sro) * (1 - Srw - Sro) * mu_w );
<a name="l00234"></a>00234     <span class="keyword">static</span> prec_t dxdz_dy = dx * dz / dy;
<a name="l00235"></a>00235     <span class="keyword">static</span> prec_t dydz_dx = dy * dz / dx;
<a name="l00236"></a>00236     <span class="keyword">static</span> prec_t dxdy_dz = dx * dy / dz;
<a name="l00237"></a>00237 
<a name="l00238"></a>00238     aE = 0.0; aW = 0.0; aN = 0.0; aS = 0.0; aF = 0.0; aB = 0.0;
<a name="l00239"></a>00239     aP = 0.0; sp = 0.0;
<a name="l00240"></a>00240 
<a name="l00241"></a>00241     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ki = bk; ki &lt;= ek; ++ki) 
<a name="l00242"></a>00242       <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i) 
<a name="l00243"></a>00243         <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = bj; j &lt;= ej; ++j) {
<a name="l00244"></a>00244           <span class="comment">// UpwindE</span>
<a name="l00245"></a>00245       <span class="comment">// -- X</span>
<a name="l00246"></a>00246           <span class="keywordflow">if</span> ( phi_0(i+1, j, ki) &gt;= phi_0(i, j) )
<a name="l00247"></a>00247             <span class="keywordflow">if</span>      ( i == ei   ) Sw_e = S(i+1, j, ki);
<a name="l00248"></a>00248             <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( i == ei-1 ) Sw_e = S(i+1, j, ki) * 2.0 - S(i+2, j, ki);
<a name="l00249"></a>00249             <span class="keywordflow">else</span>                  Sw_e = S(i+1, j, ki) * 1.5 - S(i+2, j, ki) * 0.5;
<a name="l00250"></a>00250           <span class="keywordflow">else</span>
<a name="l00251"></a>00251             <span class="keywordflow">if</span> ( i == bi )
<a name="l00252"></a>00252               Sw_e = S(i, j, ki) * 2.0 - S(i-1, j, ki);
<a name="l00253"></a>00253             <span class="keywordflow">else</span>
<a name="l00254"></a>00254               Sw_e = S(i, j, ki) * 1.5 - S(i-1, j, ki) * 0.5;
<a name="l00255"></a>00255           
<a name="l00256"></a>00256           <span class="keywordflow">if</span> ( phi_0(i-1, j, ki) &gt;= phi_0(i, j, ki) ) 
<a name="l00257"></a>00257             <span class="keywordflow">if</span>      ( i == bi   ) Sw_w = S(i-1, j, ki);
<a name="l00258"></a>00258             <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( i == bi+1 ) Sw_w = S(i-1, j, ki) * 2.0 - S(i-2, j, ki);
<a name="l00259"></a>00259             <span class="keywordflow">else</span>                  Sw_w = S(i-1, j, ki) * 1.5 - S(i-2, j, ki) * 0.5;
<a name="l00260"></a>00260           <span class="keywordflow">else</span>
<a name="l00261"></a>00261             <span class="keywordflow">if</span> ( i == ei )
<a name="l00262"></a>00262               Sw_w = S(i, j, ki) * 2.0 - S(i+1, j, ki);
<a name="l00263"></a>00263             <span class="keywordflow">else</span>
<a name="l00264"></a>00264               Sw_w = S(i, j, ki) * 1.5 - S(i+1, j, ki) * 0.5; 
<a name="l00265"></a>00265 
<a name="l00266"></a>00266           <span class="comment">// -- Y</span>
<a name="l00267"></a>00267           <span class="keywordflow">if</span> ( phi_0(i, j+1, ki) &gt;= phi_0(i, j, ki) )
<a name="l00268"></a>00268             <span class="keywordflow">if</span>      ( j == ej   ) Sw_n = S(i, j+1, ki);
<a name="l00269"></a>00269             <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( j == ej-1 ) Sw_n = S(i, j+1, ki) * 2.0 - S(i, j+2, ki);
<a name="l00270"></a>00270             <span class="keywordflow">else</span>                  Sw_n = S(i, j+1, ki) * 1.5 - S(i, j+2, ki) * 0.5;
<a name="l00271"></a>00271           <span class="keywordflow">else</span>
<a name="l00272"></a>00272             <span class="keywordflow">if</span> ( j == bj )
<a name="l00273"></a>00273               Sw_n = S(i, j, ki) * 2.0 - S(i, j-1, ki);
<a name="l00274"></a>00274             <span class="keywordflow">else</span>
<a name="l00275"></a>00275               Sw_n = S(i, j, ki) * 1.5 - S(i, j-1, ki) * 0.5;
<a name="l00276"></a>00276           
<a name="l00277"></a>00277           <span class="keywordflow">if</span> ( phi_0(i, j-1, ki) &gt;= phi_0(i, j, ki) ) 
<a name="l00278"></a>00278             <span class="keywordflow">if</span>      ( j == bj   ) Sw_s = S(i, j-1, ki);
<a name="l00279"></a>00279             <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( j == bj+1 ) Sw_s = S(i, j-1, ki) * 2.0 - S(i, j-2, ki);
<a name="l00280"></a>00280             <span class="keywordflow">else</span>                  Sw_s = S(i, j-1, ki) * 1.5 - S(i, j-2, ki) * 0.5;
<a name="l00281"></a>00281           <span class="keywordflow">else</span>
<a name="l00282"></a>00282             <span class="keywordflow">if</span> ( j == ej )
<a name="l00283"></a>00283               Sw_w = S(i, j, ki) * 2.0 - S(i, j+1, ki);
<a name="l00284"></a>00284             <span class="keywordflow">else</span>
<a name="l00285"></a>00285               Sw_w = S(i, j, ki) * 1.5 - S(i, j+1, ki) * 0.5; 
<a name="l00286"></a>00286 
<a name="l00287"></a>00287           <span class="comment">// -- Z</span>
<a name="l00288"></a>00288           <span class="keywordflow">if</span> ( phi_0(i, j, ki+1) &gt;= phi_0(i, j, ki) )
<a name="l00289"></a>00289             <span class="keywordflow">if</span>      ( ki == ek   ) Sw_f = S(i, j, ki+1);
<a name="l00290"></a>00290             <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( ki == ek-1 ) Sw_f = S(i, j, ki+1) * 2.0 - S(i, j, ki+2);
<a name="l00291"></a>00291             <span class="keywordflow">else</span>                  Sw_f = S(i, j, ki+1) * 1.5 - S(i, j, ki+2) * 0.5;
<a name="l00292"></a>00292           <span class="keywordflow">else</span>
<a name="l00293"></a>00293             <span class="keywordflow">if</span> ( ki == bk )
<a name="l00294"></a>00294               Sw_f = S(i, j, ki) * 2.0 - S(i, j, ki-1);
<a name="l00295"></a>00295             <span class="keywordflow">else</span>
<a name="l00296"></a>00296               Sw_f = S(i, j, ki) * 1.5 - S(i, j, ki-1) * 0.5;
<a name="l00297"></a>00297           
<a name="l00298"></a>00298           <span class="keywordflow">if</span> ( phi_0(i, j, ki-1) &gt;= phi_0(i, j, ki) ) 
<a name="l00299"></a>00299             <span class="keywordflow">if</span>      ( ki == bk   ) Sw_b = S(i, j, ki-1);
<a name="l00300"></a>00300             <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( ki == bk+1 ) Sw_b = S(i, j, ki-1) * 2.0 - S(i, j, ki-2);
<a name="l00301"></a>00301             <span class="keywordflow">else</span>                  Sw_b = S(i, j, ki-1) * 1.5 - S(i, j, ki-2) * 0.5;
<a name="l00302"></a>00302           <span class="keywordflow">else</span>
<a name="l00303"></a>00303             <span class="keywordflow">if</span> ( ki == ek )
<a name="l00304"></a>00304               Sw_b = S(i, j, ki) * 2.0 - S(i, j, ki+1);
<a name="l00305"></a>00305             <span class="keywordflow">else</span>
<a name="l00306"></a>00306               Sw_b = S(i, j, ki) * 1.5 - S(i, j, ki+1) * 0.5; 
<a name="l00307"></a>00307 
<a name="l00308"></a>00308           <span class="comment">// Quadratic</span>
<a name="l00309"></a>00309           aE (i,j,ki) = ( (1 - Sro - Sw_e) * (1 - Sro - Sw_e) * mult_o 
<a name="l00310"></a>00310                           + (Sw_e - Srw) * (Sw_e - Srw) * mult_w ) * dydz_dx;
<a name="l00311"></a>00311           aW (i,j,ki) = ( (1 - Sro - Sw_w) * (1 - Sro - Sw_w) * mult_o 
<a name="l00312"></a>00312                           + (Sw_w - Srw) * (Sw_w - Srw) * mult_w ) * dydz_dx;
<a name="l00313"></a>00313           aN (i,j,ki) = ( (1 - Sro - Sw_n) * (1 - Sro - Sw_n) * mult_o 
<a name="l00314"></a>00314                           + (Sw_n - Srw) * (Sw_n - Srw) * mult_w ) * dxdz_dy;
<a name="l00315"></a>00315           aS (i,j,ki) = ( (1 - Sro - Sw_s) * (1 - Sro - Sw_s) * mult_o 
<a name="l00316"></a>00316                           + (Sw_s - Srw) * (Sw_s - Srw) * mult_w ) * dxdz_dy;
<a name="l00317"></a>00317           aF (i,j,ki) = ( (1 - Sro - Sw_f) * (1 - Sro - Sw_f) * mult_o 
<a name="l00318"></a>00318                           + (Sw_f - Srw) * (Sw_f - Srw) * mult_w ) * dxdy_dz;
<a name="l00319"></a>00319           aB (i,j,ki) = ( (1 - Sro - Sw_b) * (1 - Sro - Sw_b) * mult_o 
<a name="l00320"></a>00320                           + (Sw_b - Srw) * (Sw_b - Srw) * mult_w ) * dxdy_dz;
<a name="l00321"></a>00321           aP (i, j, ki) = aE (i, j, ki) + aW (i, j, ki) + 
<a name="l00322"></a>00322                           aN (i, j, ki) + aS (i, j, ki) + 
<a name="l00323"></a>00323                           aF (i, j, ki) + aB (i, j, ki);
<a name="l00324"></a>00324 
<a name="l00325"></a>00325         }        
<a name="l00326"></a>00326     applyBoundaryConditions3D();
<a name="l00327"></a>00327 
<a name="l00328"></a>00328 
<a name="l00329"></a>00329     <span class="comment">// Source for injection : </span>
<a name="l00330"></a>00330     <span class="comment">// (\frac{\bar{q}_w}{\rho_w} + \frac{\bar{q}_w}{\rho_w}) * \Delta V</span>
<a name="l00331"></a>00331     sp (bi, bj, bk) +=  injection  ;
<a name="l00332"></a>00332 
<a name="l00333"></a>00333 <span class="comment">/*</span>
<a name="l00334"></a>00334 <span class="comment">    sp (ei, ej) +=  injection  ;</span>
<a name="l00335"></a>00335 <span class="comment">    sp (bi, ej) +=  injection  ;</span>
<a name="l00336"></a>00336 <span class="comment">    sp (ei, bj) +=  injection  ;</span>
<a name="l00337"></a>00337 <span class="comment">*/</span>
<a name="l00338"></a>00338     <span class="comment">//Sink for extraction :</span>
<a name="l00339"></a>00339     sp (ei, ej, ek) -= injection  ;
<a name="l00340"></a>00340 
<a name="l00341"></a>00341 <span class="comment">//    sp (ei/2+1, ej/2+1) -= 4 * injection  ;</span>
<a name="l00342"></a>00342 
<a name="l00343"></a>00343     <span class="keywordflow">return</span> 0;
<a name="l00344"></a>00344 }
<a name="l00345"></a>00345 
<a name="l00346"></a>00346 } <span class="comment">// Tuna namespace</span>
<a name="l00347"></a>00347 
<a name="l00348"></a>00348 
<a name="l00349"></a>00349 <span class="preprocessor">#endif //_FSIP6_H_</span>
<a name="l00350"></a>00350 <span class="preprocessor"></span>
<a name="l00351"></a>00351 
<a name="l00352"></a>00352 
<a name="l00353"></a>00353 
<a name="l00354"></a>00354 
<a name="l00355"></a>00355 
<a name="l00356"></a>00356 
<a name="l00357"></a>00357 
<a name="l00358"></a>00358 
<a name="l00359"></a>00359 
<a name="l00360"></a>00360 
<a name="l00361"></a>00361 
<a name="l00362"></a>00362 
<a name="l00363"></a>00363 
<a name="l00364"></a>00364 
<a name="l00365"></a>00365 
<a name="l00366"></a>00366 
</pre></div></div>
</div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Typedefs</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>



<hr size="1">
<div align="center">
Last modification: Sun Aug 28 09:57:21 CDT 2011
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&copy; 2011 LMCS-UNAM
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Generated by <a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="top" border="0" height="25"></a> 1.6.1 </div>

